home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9106 / ehrmann2 < prev    next >
Text File  |  1991-04-29  |  992b  |  45 lines
  1.  
  2. LISTING 2
  3.  
  4.    ; ------------------------------------------------------------
  5.    ; CUSTOMER application - Driver Script
  6.    ; DBMS - Speaking of PAL - June, 1991 - Listing 2
  7.    ; ------------------------------------------------------------
  8.  
  9.    ; display loading message
  10.  
  11.    clear
  12.    cursor off
  13.    @ 4,10 ?? "Welcome to the CUSTOMER application"
  14.    @ 6,10 ?? "Loading Procedures - please wait"
  15.    style blink
  16.    @ 6,43 ?? ". . ."
  17.    style
  18.  
  19.    ; clean up if user ran this script interactively
  20.  
  21.    release vars all
  22.    reset
  23.  
  24.    ; allow the application to locate itself
  25.  
  26.    setdir sdir()
  27.  
  28.    ; check for existence of program library
  29.  
  30.    if not isfile("CUSTOMER.LIB") then
  31.       quit "PCE Plus program files not found"
  32.    endif
  33.  
  34.    ; define minimum memory swap point
  35.  
  36.    setswap 35000
  37.  
  38.    ; set up default library and invoke the top proc
  39.  
  40.    autolib = "CUSTOMER"
  41.    CUSTOMER_MENU()
  42.  
  43.    ; ------------------------------------------------- end of script
  44.  
  45.